RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE CONTRL ( 


IDENT = ‘V04-000' 
ADDRESSING ~MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
)s 


%BL1SS32C 


BEGIN 


i geeeeeereeereeeeeeeneeeeeeeeneteeereteeerererenteeeeeeeeeeeeeeeeeeeeeeeeeees 
'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


oy 
® 
® 
® 
4 x 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copite * 
:* ONLY IN ACCORDANCE WITH THE TER ant OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF Tw WARE OR ANY OTHER * 
fe COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. ® 
5 ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. . 

J 

® 

® 

* 

® 

® 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 


IBIL 
H IS 


i eeeeeeeerereeeeeeeeeeeeeeeeeeeeeeeeeeteredeteeeeeneneeeeeeeeneeneeeeeneeeer 
' 


i¢¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

i ABSTRACT: Processes .CONTROL CHARACTERS, .NO CONTROL CHARACTERS, and 
i SPACE commands. 

Processing is divided up among two routines. 

i 

ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: July, 1978 


a a a 


"1 
1a sep-198 73:05:51 ERUNOFFeSRESCONTRL-BLt; 


2 
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SBTTL "Revision History’ 
MODIFIED BY: 
003 KFA00003 07-Mar-1983 


Ken Alden 
ees edit of all modules. Updated medule names, idents, 
copyright dates. Changed require files to BLISS library. 
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CONTR 1b-se -1984 2:10:11 AX-11 Bliss-32 V4.0-74 P 
you-000 Module Level Declarations 1a-8ep- 382 90: 8:8 RUNOFF .SRCJCONTRL.BLI; — (33 
; i O84 } XSBTTL "Module Level Declarations’ ; 
: ee 3 
$ 8 1 ! TABLE OF CONTENTS: , 
3 9 087 1! ; 
; 60 0 § 1 ; 
> 61 059 1 FORWARD ROUTINE : 
3 6¢ 060 1 CONTRL : NOVALUE, ‘ 
; 6 061 1 CONCAT : NOVALUE; ’ 
: = 664 p66 1 
: 65 0065 1! 
: 66 Bpe¢ 1 ! INCLUDE FILES: 
ee 065 1! 
; 68 p298 1 
3 69 006 1 LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 
: a Boge ! REQUIRE ‘REQ:RNODEF'; ' RUNOFF variant definitions 
3 7 U 0200 1 IF DSRPLUS XTHEN 
$ 7 U 0201 1 LIBRARY ‘REQ:DPLLIB'; ' DSRPLUS BLISS Library 
: 76 bs0e 1 ZELSE 
r} 75 020 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 
3 76 0204 1 XFI 
TD sg 0205 1 
7 0206 1! 
; 79 0207 1 ! MACROS 
: 80 0208 1! 
; #81 0209 1! 
3 82 0210 1 ! EQUATED SYMBOLS: 
s 83 0211 1! 
: B4 Osi¢ 1! 
; 0213 1 ! OWN STORAGE: 
; 86 0214 1! 
» Oy B61? 1! 
: 88 0216 1 ! EXTERNAL REFERENCES: 
; 8 0217 1! 
: 90 0218 1 
3 91 0219 1 EXTERNAL 
3 9 0220 1 GCA : GCA_DEFINITION, 
3 yt oss4 ! SCA : SCA_DEFINITION; 
; 0593 1 EXTERNAL LITERAL ! Error message 
3 38 bsse : RNF DNS; ! .NO SPACE illegal in this context 
: | 
3 98 8559 1 EXTERNAL ROUTINE 
3 99 1 ERML; 
: 100 0228 1 


v04-0 Module Level Declarations 


-Sep-1 1 RUNOFF .SRCJCONTRL.BLI; (4 


16500-1984 90: 19:11 AX=-11 Bliss-32 V4.0-74 Page ; 
: 


GLOBAL ROUTINE CONTRL (HANDLER_CODE) : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 
Processes .CONTROL CHARACTERS and .NO CONTROL CHARACTERS commands 
FORMAL PARAMETERS: 

HANDLER_CODE indicates which command is to be processed. 


Oooo 


we eee felololelelololelolololo) 


4 a 
Pe 1 
4 
3 199 a 
: 108 5 1 
; 109 § 1 
s 110 1 
s 111 8 1 
3 1 9 1 
3 BF re ! IMPLICIT INPUTS: None 
s 115 rk 1 IMPLICIT OUTPUTS: None 
s 196 4 1 
:- 37 44 «1 ROUTINE VALUE: 
3 (118 45 1! COMPLETION CODES: None 
s 119 46 1 
s 120 47 1 
3; 121 48 #1 
3 \$¢ 0249 1 !-- 
s te 0250 1 
3 6124 0251 § BEGIN 
s 125 8526 
; 126 02535 2 F ! 
3; 127 0254 2 -HANDLER_CODE EQL H_CONTROL_CHARA 
: 128 0255 N ! 
: 129 0256 SCA_CC_OK = TRUE 
: 130 0257 ELSE ! 
131 0258 é SCA_CC_OK = FALSE; 
; 6132 0259 
3; 133 0260 1 END; ‘End of CONTRL 
-TITLE CONTR 
-IDENT \V04-000\ 
-EXTRN GCA, SCA, RNFDNS 
sEXTRN ERML 
-PSECT S$CODE$,NOWRT,2 
0600 00000 ENTRY CONTRL, Save nothing : 0229 
OF 04 aC D4 o0098 CPL HANDLER_CODE, #15 > 0254 
00000000G_ FF gf 06 BRO bE cat #1, aSCA+108 ; 0256 
00000000G_ FF ee Beoie 1$: CLRL aScCA+108 ; 0258 
4 00016 RET ; 0260 


; Routine Size: 23 bytes, Routine Base: $CODE$ + 0000 


3 (134 0261 1 


D 15 
16-Sep-1984 00:10:11 AX-11 Bliss-32 V4.0-742 
Module Level Declarations 19-800- 1382 90: O8i54 RUNOFF .SRCJCONTRL.BLI;1 


GLOBAL ROUTINE CONCAT (HANDLER_CODE) : NOVALUE = ; 


— 


1+ 


| FUNCTIONAL DESCRIPTION: 
! Processes the .NO SPACE command 
FORMAL PARAMETERS: 
HANDLER_CODE is not used; it's a dummy. 


MMTororororororororofropororororr 


AMIE ANM OOO NOUS —OVOONOUL Wr 


3 $ 62 1 
Mat: ? 1 
; 138 1 
: 139 65 1 
; 140 ? 1! 
3; 6141 1! 
; 106 68 1! 
3 746 69 1! 
3 (144 8 70 1! 
s 145 ate ee 
> 146 72 1! 
: 147 73° 1°! IMPLICIT INPUTS: None 
: 148 74 «1:5 
; 61469 7 1 ! IMPLICIT OUTPUTS: None 
; 150 76 1! 
s 151 0277 1 ! ROUTINE VALUE: 
3 136 8 f } } COMPLETION CODES: None 
3 194 bss 1 ! SIDE EFFECTS: None 
> 395 0281 1! 
3s 136 0282 1 !-- 
» 437 bss 1 
s 138 02 § BEGIN 
: «159 028 
: 160 028 IF .sca_cont 
3; 6161 0287 THEN ! 
3; 162 0288 BEGIN ! .NO SPACE command is allowed. 
3 165 0289 3 ace .coneat = TRUE; 
> «164 0290 3 ND 
s 165 0291 § ELSE ! 
; 166 1344 'A .NO SPACE command is illegal, since there is nothing to 
s 167 029 ‘concatenate the next text to. 
: «168 0294 N 
3; 169 0295 ERML (RNFDNS); 
; 170 0296 § END; 
; 171 0297 
s 172 0298 1 END; ‘Ent of CONCAT 
0000 00000 -ENTRY CONCAT, Save nothing 
08 000000006 EF E9 9908 BLBC  SCA+164, 1$ 
00000000G_ EF . = MOVL #1, GCA+48 
04 gai RET 
000000006 4 DD 00011 1$: PUSHL #RNIDNS 
00000000G_ EF 1 FB HE CALLS #1, ERML 
04 OOO1E RET 
; Routine Size: 31 bytes, Routine Base: $CODE$ + 0017 


.- 375 $38 1 
ore 5 00 1 END 'End of module 
175 301 0 ELUDOM 


Be Be Se Se Be Oe Se Se Ge Se ee Se Se Be Se Se Se Be Ge Se Ge Se Se Be Se Be Ge Be Be Be Se Be Se Be Se Se Oe Be Se SH Se Se Ss Se Se Se Oe Se SHS Oe SHES Se Se esas 


04-000 


; Size: 


AX-11 8 -32 v4.0- 


15 
-Sep-1984 lis -74 “3 
RUNOFF ..SRCJCONTRL.BLI; 


Module Level Declarations if -Sep-1984 99: 08 4 


PSECT SUMMARY 


Name Bytes Attributes 
SCODES 54 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ae Symbols -<---<--- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBIJXPORT.L32;1 590 0 0 252 93:00 -¢ 
“$255$DUA28: CRUNOFF .SRCIDS RLIB.L32;1 1248 10 0 86 00:00. 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CONTRL/OBJ=OBJ$:CONTRL MSRC$:CONTRL/UPDATE=(ENHS$: CONTRL) 


54 code + 0 data bytes 
Run Time: BO: 4 

Elapsed Time: 
Lines/CPU Min: 
Lexemes/CPU-Min: 
pee | Used: 22 pages 
Compilation Complete 
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